home *** CD-ROM | disk | FTP | other *** search
/ Disc to the Future 2 / Disc to the Future Part II Programmer's Reference (Wayzata Technology)(6013)(1992).bin / PC / MISCBAS / ROULETTE.ASC < prev    next >
Text File  |  1987-01-11  |  7KB  |  190 lines
  1. 100 LET P=5000
  2. 110 PRINT "THIS PROGRAM IS DESIGNED TO SIMULATE THE FRENCH GAMBLING" 
  3. 120 DIM G(10)
  4. 130 LET P=5000   
  5. 140 PRINT "GAME ROULETTE."   
  6. 150 PRINT "DO YOU WISH TO SEE A DESCRIPTION OF THE RULES"
  7. 160 INPUT A$ 
  8. 170 IF A$="NO" THEN 450  
  9. 180 PRINT "YOU BEGIN WITH $5,000 AND MAY BET AS MUCH AS YOU LIKE UNTIL"  
  10. 190 PRINT "YOU HAVE EITHER WON $100,000 OR YOU GO BROKE, WHICH EVER" 
  11. 200 PRINT "COMES FIRST.  THE BETTING IS DONE ON A BOARD OR CLOTH"
  12. 210 PRINT "SUCH AS APPEARS BELOW.  HALF THE NUMBERS ARE RED AND HALF"
  13. 220 PRINT "ARE BLACK EXCEPT ZERO WHICH IS COLORLESS.  BETTING COM-"  
  14. 230 PRINT "BINATIONS AND ODDS ON THEM ARE AS FOLLOWS:"   
  15. 240 PRINT
  16. 250 PRINT "**************************************************************"   
  17. 260 PRINT "          BET                          BANK PAYS" 
  18. 270 PRINT "     -------------         --------------------------------"  
  19. 280 PRINT " 1.RED OR BLACK             EVEN MONEY (AMOUNT OF BET)"  
  20. 290 PRINT " 2.EVEN OR ODD              EVEN MONEY"  
  21. 300 PRINT " 3. HIGH OR LOW             EVEN MONEY"  
  22. 310 PRINT " 4.COLUMN 1,2,OR 3          2 TO 1"  
  23. 320 PRINT " 5.DOZEN (LOW,MIDDLE,HIGH)  2 TO 1"  
  24. 330 PRINT " 6.SINGLE NUMBERS 0-36      36 TO 1" 
  25. 340 PRINT " 7.TWO NUMBERS(ADJACENT)    17 TO 1" 
  26. 350 PRINT " 8.THREE NUMBERS ACCROSS    11 TO 1" 
  27. 360 PRINT " 9.FOUR NUMBERS (SQUARE)    8 TO 1"  
  28. 370 PRINT "10.SIX NUMBERS(RECTANGLE)   5 TO 1"  
  29. 380 PRINT "***************************************************************" 
  30. 390 PRINT   
  31. 400 PRINT   
  32. 410 PRINT   
  33. 420 PRINT "WHEN ASKED TO PLACE YOUR BET, DO SO BY FIRST INPUTING"   
  34. 430 PRINT "THE AMOUNT OF THE BET (SMALLEST BET =$1.00) AND THE" 
  35. 440 PRINT "NUMBER OF THE TYPE OF BET DESIRED FROM THE TABLE ABOVE"  
  36. 450 PRINT "HERE IS THE ROULETTE LAYOUT:"
  37. 460 PRINT "              ***********************"   
  38. 470 PRINT "              *         0           *"   
  39. 480 PRINT "              *   1     2      3    *"   
  40. 490 PRINT "              *   4     5      6    *"   
  41. 500 PRINT "              *   7     8      9    *"   
  42. 510 PRINT "              *  10    11     12    *"   
  43. 520 PRINT "              *  13    14     15    *"   
  44. 530 PRINT "              *  16    17     18    *"   
  45. 540 PRINT "              *  19    20     21    *"   
  46. 550 PRINT "              *  22    23     24    *"   
  47. 560 PRINT "              *  25    26     27    *"   
  48. 570 PRINT "              *  28    29     30    *"   
  49. 580 PRINT "              *  31    32     33    *"   
  50. 590 PRINT "              *  34    35     36    *"   
  51. 600 PRINT "              ***********************"   
  52. 610 PRINT "              ***********************"   
  53. 620 PRINT "THE ROULETTE WHEEL IS SPINNING-ROUND AND ROUND IT"   
  54. 630 PRINT "GOES, WHERE SHE STOPS NOBODY KNOWS." 
  55. 640 LET X=0 
  56. 650 LET Y=INT(37*RND(1))
  57. 660 PRINT "FAITES VOS JEUX MESSIEUR (PLACE YOUR BETS GENTLEMEN)"
  58. 670 INPUT B,C   
  59. 680 IF C=2 THEN 890 
  60. 690 IF C=3 THEN 990 
  61. 700 IF C=4 THEN 1090 
  62. 710 IF C=5 THEN 1280 
  63. 720 IF C=6 THEN 1430 
  64. 730 IF C=7 THEN 1490 
  65. 740 IF C=8 THEN 1560
  66. 750 IF C=9 THEN 1640
  67. 760 IF C=10 THEN 1730   
  68. 770 LET E=1 
  69. 780 PRINT "WHICH COLOR DO YOU WANT TO BET ON"   
  70. 790 INPUT Z$
  71. 800 IF Y=0 THEN 1880
  72. 810 IF Y<19 THEN 860
  73. 820 PRINT " THE NUMBER IS BLACK"
  74. 830 IF Z$="BLACK" THEN 1820 
  75. 840 GOTO 1880  
  76. 850 PRINT   
  77. 860 PRINT "THE NUMBER IS RED"   
  78. 870 IF Z$="RED" THEN 1820   
  79. 880 GOTO 1880  
  80. 890 LET E=1 
  81. 900 PRINT "WHICH DO WANT TO BET ON, ODD OR EVEN"
  82. 910 INPUT D$
  83. 920 PRINT "THE NUMBER IS"Y  
  84. 930 LET D1=Y/2  
  85. 940 IF D1=INT(Y/2) THEN 970 
  86. 950 IF D$="ODD" THEN 1820   
  87. 960 GOTO 1880  
  88. 970 IF D$="EVEN" THEN 1820  
  89. 980 GOTO 1880  
  90. 990 LET E=1 
  91. 1000 PRINT "DO YOU BET HIGH (19-36) OR LOW (1-18)"   
  92. 1010 INPUT H$
  93. 1020 PRINT "THE NUMBER IS"Y  
  94. 1030 IF Y=0 THEN 1880
  95. 1040 IF Y>18 THEN 1070
  96. 1050 IF H$="LOW" THEN 1820   
  97. 1060 GOTO 1880  
  98. 1070 IF H$="HIGH" THEN 1820  
  99. 1080 GOTO 1880  
  100. 1090 LET E=2 
  101. 1100 PRINT "WHICH COLUMN DO YOU CHOOSE, 1,2,OR 3"
  102. 1110 INPUT F 
  103. 1120 PRINT "THE NUMBER IS"Y  
  104. 1130 IF Y=0 THEN 1880
  105. 1140 IF F=2 THEN 1200 
  106. 1150 IF F=3 THEN 1240 
  107. 1160 FOR F1=1TO34 STEP 3 
  108. 1170 IF F1=Y THEN 1820   
  109. 1180 NEXT F1 
  110. 1190 GOTO 1880  
  111. 1200 FOR F1=2TO35 STEP 3 
  112. 1210 IF F1=Y THEN 1820   
  113. 1220 NEXT F1 
  114. 1230 GOTO 1880  
  115. 1240 FOR F1=3TO36 STEP 3 
  116. 1250 IF F1=Y THEN 1820   
  117. 1260 NEXT F1 
  118. 1270 GOTO 1880  
  119. 1280 LET E=2 
  120. 1290 PRINT "WHICH DOZEN NUMBERS DO YOU CHOOSE, LOW (1-12), MIDDLE"   
  121. 1300 PRINT "(13-24), OR HIGH (25-36)"
  122. 1310 INPUT I$
  123. 1320 PRINT " THE NUMBER IS "Y
  124. 1330 IF Y=0 THEN 1880
  125. 1340 IF I$="MIDDLE" THEN 1380 
  126. 1350 IF I$="HIGH" THEN 1410   
  127. 1360 IF Y<13 THEN 1820   
  128. 1370 GOTO 1880  
  129. 1380 IF Y>25 THEN 1880   
  130. 1390 IF Y<13 THEN 1880   
  131. 1400 GOTO 1820  
  132. 1410 IF Y>24 THEN 1820   
  133. 1420 GOTO 1880  
  134. 1430 LET E=36
  135. 1440 PRINT "OH OH, A LONG SHOT....PICK YOUR NUMBER." 
  136. 1450 INPUT G 
  137. 1460 PRINT "AND THE NUMBER COMES UP --------------------------"Y 
  138. 1470 IF G=Y THEN 1820
  139. 1480 GOTO 1880  
  140. 1490 LET E=17
  141. 1500 PRINT "WHAT TWO ADJACENT NUMBERS ARE YOU BETTING ON"
  142. 1510 INPUT G1,G2 
  143. 1520 PRINT " AND THIS TIME THE NUMBER COMES UP-----------------"Y
  144. 1530 IF G1=Y THEN 1820   
  145. 1540 IF G2=Y THEN 1820   
  146. 1550 GOTO 1880  
  147. 1560 LET E=11   
  148. 1570 PRINT "WHAT THREE NUMBERS(RUNNING ACCROSS THE BOARD) DO YOU WANT"  
  149. 1580 INPUT G1,G2,G3 
  150. 1590 PRINT "AND THE NUMBER IS ::::::::::::::::::::::::::"Y  
  151. 1600 IF G1=Y THEN 1820  
  152. 1610 IF G2=Y THEN 1820  
  153. 1620 IF G3=Y THEN 1820  
  154. 1630 GOTO 1880 
  155. 1640 LET E=8
  156. 1650 PRINT "WHAT FOUR NUMBERS( IN A SQUARE ) DO YOU WANT"   
  157. 1660 INPUT G(1),G(2),G(3),G(4)  
  158. 1670 PRINT "THE MARBLE FALLS AND BOUNCES AND BOUNCES AND, AND"  
  159. 1680 PRINT "THE NUMBER COMES UP"Y   
  160. 1690 FOR I=1TO4 
  161. 1700 IF G(I)=Y THEN 1820
  162. 1710 NEXT I 
  163. 1720 GOTO 1880 
  164. 1730 LET E=5
  165. 1740 PRINT "WHAT SIX NUMBERS (IN A RECTANGLE OOO THE BOARD) DO YOU "
  166. 1750 PRINT "WANT TO BET ON" 
  167. 1760 INPUT G(1),G(2),G(3),G(4),G(5),G(6)
  168. 1770 PRINT "WELL, THE NUMBER CAME UP"Y  
  169. 1780 FOR I=1TO6 
  170. 1790 IF G(I)=Y THEN 1820
  171. 1800 NEXT I 
  172. 1810 GOTO 1880 
  173. 1820 PRINT " *****A WINNER*****"
  174. 1830 PRINT "YOU WIN $"E*B   
  175. 1840 LET P=P+(E*B)  
  176. 1850 PRINT "YOUR PURSE NOW TOTALS $"P   
  177. 1860 IF P>100000! THEN 1930  
  178. 1870 GOTO 650  
  179. 1880 PRINT " *****YOU LOSE*****"
  180. 1890 LET P=P-B  
  181. 1900 PRINT "YOUR PURSE NOW TOTALS $"P   
  182. 1910 IF P>0 THEN 650
  183. 1920 IF P=<0 THEN 1950  
  184. 1930 PRINT "END OF GAME YOU BROKE THE HOUSE"
  185. 1940 GOTO 1960 
  186. 1950 PRINT "YOURE BROKE!!!!!"   
  187. 1960 END
  188. F P=<0 THEN 1950  
  189. 1930 PRINT "END OF GAME YOU BROKE THE HOUSE"
  190. 1940